home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / text / edit / Textra16.lha / Textra116 / Scripts / JForth_Scripts / interpret.textra < prev    next >
Encoding:
Text File  |  1991-12-31  |  287 b   |  18 lines
  1. /* Execute selected text as JForth code */
  2.  
  3. options results
  4.  
  5. expression= 'EX= '
  6. get select text
  7. parse var result num  thisselect
  8. if num='NO' then exit
  9.  
  10. address 'JFORTH' thisselect
  11.  
  12. do until num=0
  13.    get select next
  14.    parse var result num thisselect
  15.     address 'JFORTH' thisselect
  16.    end
  17.  
  18.